home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / ab20 / hardware / amscsi.lzh / SCSIMon (.txt) < prev    next >
AmigaBASIC Source Code  |  1987-05-26  |  609b  |  28 lines
  1. REM SCSI adapter Monitor program
  2. REM 2/28/87 Rich Frantz
  3. REM +++++++++++++++++++++++++
  4. REM         EQUATES
  5. REM +++++++++++++++++++++++++
  6. Port0 = 8388609
  7. REM ++++++++++++++++++++++++
  8. REM       Display ports
  9. REM ++++++++++++++++++++++++
  10.  10 FOR a = 0 TO 10 STEP 2
  11.     d(a) = PEEK(Port0 + a)
  12.     IF d(a) <> p(a) THEN 500
  13.  20 NEXT a
  14.     IF x = 0 THEN 10
  15.     PRINT  HEX$(Port0 - 1);
  16.     FOR a = 0 TO 10 STEP 2
  17.     PRINT " - ";
  18.     IF p(a) > 255 THEN 100
  19. 100 PRINT HEX$(p(a));
  20.     NEXT a
  21.     PRINT 
  22.     x = 0
  23.     GOTO 10
  24. 500 x = 1
  25.     p(a) = d(a)
  26.     GOTO 20
  27.  
  28.